home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 21 / CU Amiga Magazine's Super CD-ROM 21 (1998)(EMAP Images)(GB)[!][issue 1998-04].iso / CUCD / Programming / VisualBuilder / source / ObjWin.c < prev    next >
Encoding:
C/C++ Source or Header  |  1997-08-30  |  5.5 KB  |  130 lines
  1. #define VBInteger(name,title,length)\
  2.                       HGroup,\
  3.                         Child, Label(title),\
  4.                         Child, name = StringObject,\
  5.                           StringFrame,\
  6.                           MUIA_String_Contents, "",\
  7.                           MUIA_String_MaxLen, length,\
  8.                           MUIA_String_Integer, TRUE,\
  9.                         End,\
  10.                       End  
  11.  
  12. #define VBBoolean(name,title)\
  13.                       HGroup,\
  14.                         Child, Label(title),\
  15.                         Child, name = Cycle(bool),\
  16.                       End  
  17.  
  18. #define VBString(name,title,length)\
  19.                       HGroup,\
  20.                         Child, Label(title),\
  21.                         Child, name = String("",length),\
  22.                       End  
  23.  
  24. #define VBPopMenu(name,title)\
  25.                       HGroup,\
  26.                         Child, Label(title),\
  27.                         Child, name = SimpleButton("x"),\
  28.                       End  
  29.  
  30. #define VBPopList(name,title)\
  31.                       HGroup,\
  32.                         Child, Label(title),\
  33.                         Child, name = PopobjectObject,\
  34.                           MUIA_Popstring_String, String("nothing",60),\
  35.                           MUIA_Popstring_Button, PopButton(MUII_ArrowDown),\
  36.                           MUIA_Popobject_StrObjHook, &StrObjHook,\
  37.                           MUIA_Popobject_ObjStrHook, &ObjStrHook,\
  38.                           MUIA_Popobject_Object, ListviewObject,\
  39.                             MUIA_Listview_List, ListObject,\
  40.                               InputListFrame,\
  41.                               MUIA_List_Format,"COL=0 BAR,COL=1",\
  42.                               MUIA_List_ConstructHook, &ConstructHook,\
  43.                               MUIA_List_DestructHook, &DestructHook,\
  44.                               MUIA_List_DisplayHook, &DisplayHook,\
  45.                             End,\
  46.                           End,\
  47.                         End,\
  48.                       End
  49.                       
  50. Object *BuildObjWin(void)
  51. {
  52.   static const char *proppages[] = { "Properties","Code", NULL };
  53.   static const char *bool[] = {"False","True",NULL};
  54.  
  55.   return(WindowObject,
  56.     MUIA_Window_Title, "Objects",
  57.     MUIA_Window_ID, MAKE_ID('O','B','J','S'),
  58.     MUIA_HelpNode, "WI_OBJECTS",
  59.     WindowContents, VGroup,
  60.       Child, HGroup,
  61.         Child, VGroup,
  62.           Child, VBPopList(a->ObjListPop,"Name:"),
  63.           Child, HGroup,
  64.             Child, LLabel("Type: "),
  65.             Child, TextObject,
  66.               MUIA_Text_Contents, "objecttype",
  67.               MUIA_Text_SetMax, FALSE,
  68.               MUIA_Text_SetMin, FALSE,
  69.             End,
  70.           End,
  71.         End,
  72.       End, 
  73.       Child, RegisterGroup(proppages),
  74.         Child, VGroup,
  75.           MUIA_HelpNode, "PROPERTIES",
  76.           Child, a->ApplyChanges = SimpleButton("Apply changes"),
  77.           Child, ScrollgroupObject,
  78.             MUIA_Scrollgroup_FreeHoriz, FALSE,
  79.             MUIA_Scrollgroup_Contents,
  80.             VGroupV, VirtualFrame,
  81.               Child, VBPopList(a->BackGround,       "BackGround*   "),
  82.               Child, VBPopMenu(a->ContextMenu,      "ContextMenu*  "),
  83.               Child, VBString(a->ControlChar,       "ControlChar*  ",2),
  84.               Child, VBBoolean(a->CycleChain,       "CycleChain*   "),
  85.               Child, VBBoolean(a->Disabled,         "Disabled*     "),
  86.               Child, VBBoolean(a->Draggable,        "Draggable*    "),
  87.               Child, VBBoolean(a->Dropable,         "Dropable*     "),
  88.               Child, VBPopList(a->Font,             "Font*         "),
  89.               Child, VBPopList(a->Frame,            "Frame*        "),
  90.               Child, VBBoolean(a->FramePhantomHoriz,"FramePhantomHoriz*"),
  91.               Child, VBString(a->FrameTitle,        "FrameTitle*   ",30),
  92.               Child, VBInteger(a->HelpLine,         "HelpLine*     ",4),
  93.               Child, VBString(a->HelpNode,          "HelpNode      ",30),
  94.               Child, VBBoolean(a->HorizDisappear,   "HorizDisappear"),
  95.               Child, VBInteger(a->HorizWeight,      "HorizWeight   ",4),
  96.               Child, VBInteger(a->InnerBottom,      "Innerbottom   ",4),
  97.               Child, VBInteger(a->InnerLeft,        "InnerLeft     ",4),
  98.               Child, VBInteger(a->InnerRight,       "InnerRight    ",4),
  99.               Child, VBInteger(a->InnerTop,         "InnerTop      ",4),
  100.               Child, VBPopList(a->InputMode,        "InputMode     "),
  101.               Child, VBInteger(a->MaxHeigth,        "MaxHeigth     ",4),
  102.               Child, VBInteger(a->MaxWidth,         "MaxWidth      ",4),
  103.               Child, VBString(a->ObjectID,          "ObjectID*     ",30),
  104.               Child, VBBoolean(a->Selected,         "Selected*     "),
  105.               Child, VBString(a->ShortHelp,         "ShortHelp     ",30),
  106.               Child, VBBoolean(a->ShowMe,           "ShowMe        "),
  107.               Child, VBBoolean(a->ShowSelState,     "ShowSelState  "),
  108.               Child, VBBoolean(a->VertDisappear,    "VertDisappear "),
  109.               Child, VBInteger(a->VertWeight,       "VertWeight    ",3),
  110.               Child, VBInteger(a->Weight,           "Weight        ",3),
  111.             End,  
  112.           End,
  113.         End,
  114.         Child, VGroup,
  115.           MUIA_HelpNode, "CODE",
  116.           Child, HGroup,
  117.             Child, Label("Event: "),
  118.             Child, Cycle(entries),
  119.           End,
  120.           Child, ListviewObject,
  121.             MUIA_Listview_Input, TRUE,
  122.             MUIA_Listview_List, ListObject,
  123.             InputListFrame, End,
  124.           End,
  125.         End,
  126.       End,
  127.     End,
  128.   End);
  129. }
  130.